--Universidade Federal de Campina Grande
--Centro de Enegenharia Elétrica e Informática
--Unidade Acadêmica de Sistemas e Computação
--Disciplina: Paradigmas de Linguagens de Programação
--Professor: Franklin Ramalho
--Equipe: Arthur Ribeiro
--        Felipe Vieira
--        Jeysibel Dantas
--        Paulo Victor
--Euphoric Checkers
--

-- Method that draws a text representation of the board

export procedure drawBoard(sequence board)  
  puts(1,"\n\n                         ============================\n")
  puts(1,"                          ESTADO ATUAL DO TABULEIRO       ")  
  puts(1,"\n                         ============================\n\n")
  puts(1,"     1        2        3        4        5        6        7        8    \n\n")
  for i=1 to length(board) do
  printf(1,"%d ",{i})
    for j=1 to length(board[i]) do
      if board[i][j]=1 then
        printf(1,"%s",{" BRANCA |"})
      end if
      if board[i][j]=0 then
        printf(1,"%s",{"   -    |"})
      end if
      if board[i][j]=2 then
        printf(1,"%s",{" PRETA  |" })
      end if    
      if board[i][j]=3 then
        printf(1,"%s",{" DAMAB  |" })
      end if    
      if board[i][j]=4 then
        printf(1,"%s",{" DAMAP  |" })
      end if
    end for
    puts(1,"\n\n")
  end for
end procedure
